unit RadLicense;

interface
uses RadVersion,SysUtils;

function CreateLicenseText(SerialNumber,ActiveCode:string;RadStudioVersion:PRadStudioVersion):string;

implementation

function CreateLicenseText(SerialNumber,ActiveCode:string;RadStudioVersion:PRadStudioVersion):string;
var
  pid,skuid:string;
begin
  pid:=IntToStr(RadStudioVersion^.LicHostPID);
  skuid:=IntToStr(RadStudioVersion^.LicHostSKU);

  Result:='11'#10;
  Result:=Result+'e.pkg'#10'RAD Studio '+ RadStudioVersion^.LicVerStr +' Architect'#10;
  Result:=Result+'e.pt'#10'10'#10;
  Result:=Result+'e.sign'#10'0'#10;
  Result:=Result+'e.sign2'#10'0'#10;
  Result:=Result+'e.sign3'#10'0'#10;
  Result:=Result+'export.allowed'#10'0'#10;
  Result:=Result+'import.allowed'#10'1'#10;
  Result:=Result+'import.silent'#10'1'#10;
  Result:=Result+'licensed.serialno'#10+SerialNumber+#10;
  Result:=Result+'nodelock.node'#10'0'#10;
  Result:=Result+'nodelock.session'#10+ActiveCode+#10;

  Result:=Result+'6'#10;

  Result:=Result+'26'#10;
  Result:=Result+'active'#10'T'#10;
  Result:=Result+'beta'#10'0'#10;
  Result:=Result+'exportable'#10'0'#10;
  Result:=Result+'hostpid'#10+pid+#10;
  Result:=Result+'hostskuid'#10+skuid+#10;
  Result:=Result+'internaluse'#10'0'#10;
  Result:=Result+'naggy'#10'0'#10;
  Result:=Result+'noncommercial'#10'0'#10;
  Result:=Result+'noncommercial_label'#10'No'#10;
  Result:=Result+'platform'#10'1'#10;
  Result:=Result+'platform_label'#10'Windows'#10;
  Result:=Result+'product'#10'2000'#10;
  Result:=Result+'productid'#10+ RadStudioVersion^.LicDelphiPID +#10;
  Result:=Result+'productid_label'#10'Delphi '+ RadStudioVersion^.LicVerStr +#10;
  Result:=Result+'productsku'#10+skuid+#10;
  Result:=Result+'productsku_label'#10'Architect'#10;               
  Result:=Result+'rndkey'#10'15687805'#10;
  Result:=Result+'serialno'#10+SerialNumber+#10;
  Result:=Result+'sku'#10+skuid+#10;
  Result:=Result+'templicense'#10'0'#10;
  Result:=Result+'termtype'#10'0'#10;
  Result:=Result+'termtype_label'#10'Permanent'#10;
  Result:=Result+'title'#10'Delphi '+ RadStudioVersion^.LicVerStr +' Architect'#10;
  Result:=Result+'trial'#10'0'#10;
  Result:=Result+'upgrade'#10'0'#10;
  Result:=Result+'version'#10'24'#10;
  Result:=Result+'25'#10;
  Result:=Result+'Android'#10'T'#10;
  Result:=Result+'DESIGNDIAGRAMS'#10'TRUE'#10;
  Result:=Result+'DESIGNPROJECTS'#10'TRUE'#10;
  Result:=Result+'Desktop'#10'T'#10;
  Result:=Result+'FULLQA'#10'TRUE'#10;
  Result:=Result+'FulliOS'#10'T'#10;
  Result:=Result+'MODELLING'#10'TRUE'#10;
  Result:=Result+'Mobile'#10'T'#10;
  Result:=Result+'OSX32'#10'T'#10;
  Result:=Result+'Win32'#10'T'#10;
  Result:=Result+'Win64'#10'T'#10;
  Result:=Result+'a100'#10'MakeThingsHappen'#10;
  Result:=Result+'a1000'#10'PrintMoreMoney'#10;
  Result:=Result+'a101'#10'ImGivinItAllShesGot'#10;
  Result:=Result+'a200'#10'StampIt'#10;
  Result:=Result+'a250'#10'ItsToolTimeBaby'#10;
  Result:=Result+'a300'#10'TheMalteseFalcon'#10;
  Result:=Result+'a301'#10'GlueSolvent'#10;
  Result:=Result+'hostsuite'#10+pid+#10;
  Result:=Result+'iOSDevice'#10'T'#10;
  Result:=Result+'iOSDevice32'#10'T'#10;
  Result:=Result+'iOSDevice64'#10'T'#10;
  Result:=Result+'iOSSimulator'#10'T'#10;
  Result:=Result+'updatelevel'#10'0.0'#10;
  Result:=Result+'updates'#10'1'#10;

  Result:=Result+'26'#10;
  Result:=Result+'active'#10'T'#10;
  Result:=Result+'beta'#10'0'#10;
  Result:=Result+'exportable'#10'0'#10;
  Result:=Result+'hostpid'#10+pid+#10;
  Result:=Result+'hostskuid'#10+skuid+#10;
  Result:=Result+'internaluse'#10'0'#10;
  Result:=Result+'naggy'#10'0'#10;
  Result:=Result+'noncommercial'#10'0'#10;
  Result:=Result+'noncommercial_label'#10'No'#10;
  Result:=Result+'platform'#10'1'#10;
  Result:=Result+'platform_label'#10'Windows'#10;
  Result:=Result+'product'#10'4000'#10;
  Result:=Result+'productid'#10+ RadStudioVersion^.LicCBuilderPID +#10;
  Result:=Result+'productid_label'#10'C++Builder '+ RadStudioVersion^.LicVerStr +#10;
  Result:=Result+'productsku'#10+skuid+#10;
  Result:=Result+'productsku_label'#10'Architect'#10;               //Architect
  Result:=Result+'rndkey'#10'15687805'#10;
  Result:=Result+'serialno'#10+SerialNumber+#10;
  Result:=Result+'sku'#10+skuid+#10;
  Result:=Result+'templicense'#10'0'#10;
  Result:=Result+'termtype'#10'0'#10;
  Result:=Result+'termtype_label'#10'Permanent'#10;
  Result:=Result+'title'#10'C++Builder '+ RadStudioVersion^.LicVerStr +' Architect'#10;
  Result:=Result+'trial'#10'0'#10;
  Result:=Result+'upgrade'#10'0'#10;
  Result:=Result+'version'#10'17'#10;
  Result:=Result+'25'#10;
  Result:=Result+'Android'#10'T'#10;
  Result:=Result+'DESIGNDIAGRAMS'#10'TRUE'#10;
  Result:=Result+'DESIGNPROJECTS'#10'TRUE'#10;
  Result:=Result+'Desktop'#10'T'#10;
  Result:=Result+'FULLQA'#10'TRUE'#10;
  Result:=Result+'FulliOS'#10'T'#10;
  Result:=Result+'MODELLING'#10'TRUE'#10;
  Result:=Result+'Mobile'#10'T'#10;
  Result:=Result+'OSX32'#10'T'#10;
  Result:=Result+'Win32'#10'T'#10;
  Result:=Result+'Win64'#10'T'#10;
  Result:=Result+'a100'#10'MakeThingsHappen'#10;
  Result:=Result+'a1000'#10'PrintMoreMoney'#10;
  Result:=Result+'a101'#10'ImGivinItAllShesGot'#10;
  Result:=Result+'a200'#10'StampIt'#10;
  Result:=Result+'a250'#10'ItsToolTimeBaby'#10;
  Result:=Result+'a300'#10'TheMalteseFalcon'#10;
  Result:=Result+'a301'#10'GlueSolvent'#10;
  Result:=Result+'hostsuite'#10+pid+#10;
  Result:=Result+'iOSDevice'#10'T'#10;
  Result:=Result+'iOSDevice32'#10'T'#10;
  Result:=Result+'iOSDevice64'#10'T'#10;
  Result:=Result+'iOSSimulator'#10'T'#10;
  Result:=Result+'updatelevel'#10'0.0'#10;
  Result:=Result+'updates'#10'1'#10;


  Result:=Result+'26'#10;
  Result:=Result+'active'#10'T'#10;
  Result:=Result+'beta'#10'0'#10;
  Result:=Result+'exportable'#10'0'#10;
  Result:=Result+'hostpid'#10+pid+#10;
  Result:=Result+'hostskuid'#10+skuid+#10;
  Result:=Result+'internaluse'#10'0'#10;
  Result:=Result+'naggy'#10'0'#10;
  Result:=Result+'noncommercial'#10'0'#10;
  Result:=Result+'noncommercial_label'#10'No'#10;
  Result:=Result+'platform'#10'0'#10;
  Result:=Result+'platform_label'#10'All'#10;
  Result:=Result+'product'#10'7000'#10;
  Result:=Result+'productid'#10'7111'#10;
  Result:=Result+'productid_label'#10'InterBase XE7'#10;        //InterBase XE7
  Result:=Result+'productsku'#10'0'#10;
  Result:=Result+'productsku_label'#10'Server'#10;               //Server
  Result:=Result+'rndkey'#10'15687805'#10;
  Result:=Result+'serialno'#10+SerialNumber+#10;
  Result:=Result+'sku'#10'0'#10;
  Result:=Result+'templicense'#10'0'#10;
  Result:=Result+'termtype'#10'0'#10;
  Result:=Result+'termtype_label'#10'Unlimited'#10;
  Result:=Result+'title'#10'InterBase XE7 Server'#10;      //InterBase XE7 Server
  Result:=Result+'trial'#10'0'#10;
  Result:=Result+'upgrade'#10'0'#10;
  Result:=Result+'version'#10'6'#10;
  Result:=Result+'21'#10;
  Result:=Result+'changeView'#10'1'#10;
  Result:=Result+'connectionMonitoring'#10'1'#10;
  Result:=Result+'connectionsPerUser'#10'200'#10;
  Result:=Result+'customVarId'#10' '#10;
  Result:=Result+'databaseAccess'#10'1'#10;
  Result:=Result+'dbEncryption'#10'1'#10;
  Result:=Result+'ddlOperations'#10'1'#10;
  Result:=Result+'devLicense'#10'1'#10;
  Result:=Result+'externalFileAccess'#10'1'#10;
  Result:=Result+'internetAccess'#10'1'#10;
  Result:=Result+'languages'#10'ALL'#10;
  Result:=Result+'licensedCpus'#10'32'#10;
  Result:=Result+'licensedUsers'#10'5000'#10;
  Result:=Result+'nodeID'#10' '#10;
  Result:=Result+'otwEncryption'#10'1'#10;
  Result:=Result+'remoteAccess'#10'1'#10;
  Result:=Result+'serverAccess'#10'1'#10;
  Result:=Result+'togoAccess'#10'0'#10;
  Result:=Result+'updatelevel'#10'0.0'#10;
  Result:=Result+'useAddons'#10'0'#10;
  Result:=Result+'version'#10'12'#10;


  Result:=Result+'26'#10;
  Result:=Result+'active'#10'T'#10;
  Result:=Result+'beta'#10'0'#10;
  Result:=Result+'exportable'#10'0'#10;
  Result:=Result+'hostpid'#10+pid+#10;
  Result:=Result+'hostskuid'#10+skuid+#10;
  Result:=Result+'internaluse'#10'0'#10;
  Result:=Result+'naggy'#10'0'#10;
  Result:=Result+'noncommercial'#10'0'#10;
  Result:=Result+'noncommercial_label'#10'No'#10;
  Result:=Result+'platform'#10'0'#10;
  Result:=Result+'platform_label'#10'All'#10;
  Result:=Result+'product'#10'7000'#10;
  Result:=Result+'productid'#10'7111'#10;
  Result:=Result+'productid_label'#10'InterBase XE7'#10;        //InterBase XE7
  Result:=Result+'productsku'#10'16'#10;
  Result:=Result+'productsku_label'#10'ToGo Edition'#10;               //ToGo Edition
  Result:=Result+'rndkey'#10'15687805'#10;
  Result:=Result+'serialno'#10+SerialNumber+#10;
  Result:=Result+'sku'#10'16'#10;
  Result:=Result+'templicense'#10'0'#10;
  Result:=Result+'termtype'#10'0'#10;
  Result:=Result+'termtype_label'#10'Unlimited'#10;
  Result:=Result+'title'#10'InterBase XE7 ToGo Edition'#10;      //InterBase XE7 ToGo Edition
  Result:=Result+'trial'#10'0'#10;
  Result:=Result+'upgrade'#10'0'#10;
  Result:=Result+'version'#10'6'#10;
  Result:=Result+'21'#10;
  Result:=Result+'changeView'#10'1'#10;
  Result:=Result+'connectionMonitoring'#10'1'#10;
  Result:=Result+'connectionsPerUser'#10'200'#10;
  Result:=Result+'customVarId'#10' '#10;
  Result:=Result+'databaseAccess'#10'1'#10;
  Result:=Result+'dbEncryption'#10'1'#10;
  Result:=Result+'ddlOperations'#10'1'#10;
  Result:=Result+'devLicense'#10'1'#10;
  Result:=Result+'externalFileAccess'#10'1'#10;
  Result:=Result+'internetAccess'#10'1'#10;
  Result:=Result+'languages'#10'ALL'#10;
  Result:=Result+'licensedCpus'#10'32'#10;
  Result:=Result+'licensedUsers'#10'5000'#10;
  Result:=Result+'nodeID'#10' '#10;
  Result:=Result+'otwEncryption'#10'1'#10;
  Result:=Result+'remoteAccess'#10'1'#10;
  Result:=Result+'serverAccess'#10'1'#10;
  Result:=Result+'togoAccess'#10'1'#10;
  Result:=Result+'updatelevel'#10'0.0'#10;
  Result:=Result+'useAddons'#10'0'#10;
  Result:=Result+'version'#10'12'#10;




  Result:=Result+'26'#10;
  Result:=Result+'active'#10'T'#10;
  Result:=Result+'beta'#10'0'#10;
  Result:=Result+'exportable'#10'0'#10;
  Result:=Result+'hostpid'#10+pid+#10;
  Result:=Result+'hostskuid'#10+skuid+#10;
  Result:=Result+'internaluse'#10'0'#10;
  Result:=Result+'naggy'#10'0'#10;
  Result:=Result+'noncommercial'#10'0'#10;
  Result:=Result+'noncommercial_label'#10'No'#10;
  Result:=Result+'platform'#10'1'#10;
  Result:=Result+'platform_label'#10'Windows'#10;
  Result:=Result+'product'#10'14100'#10;
  Result:=Result+'productid'#10'14110'#10;
  Result:=Result+'productid_label'#10'ER/Studio 2016'#10;
  Result:=Result+'productsku'#10'15'#10;
  Result:=Result+'productsku_label'#10'Developer MultiPlatform'#10; //Developer MultiPlatform
  Result:=Result+'rndkey'#10'15687805'#10;
  Result:=Result+'serialno'#10+SerialNumber+#10;
  Result:=Result+'sku'#10'15'#10;
  Result:=Result+'templicense'#10'0'#10;
  Result:=Result+'termtype'#10'0'#10;
  Result:=Result+'termtype_label'#10'Permanent'#10;
  Result:=Result+'title'#10'ER/Studio Developer 2016'#10;
  Result:=Result+'trial'#10'0'#10;
  Result:=Result+'upgrade'#10'0'#10;
  Result:=Result+'version'#10'10'#10;
  Result:=Result+'30'#10;
  Result:=Result+'CaErwin3Erx'#10'T'#10;
  Result:=Result+'CaErwin3ErxImport.MicrosoftOfficeVisio'#10'T'#10;
  Result:=Result+'CaErwin4Xml'#10'T'#10;
  Result:=Result+'CaErwin7ModelManager'#10'T'#10;
  Result:=Result+'CaErwin7Xml'#10'T'#10;
  Result:=Result+'CaErwin8ModelManager'#10'T'#10;
  Result:=Result+'CaErwin8Xml'#10'T'#10;
  Result:=Result+'CaErwin9Mart'#10'T'#10;
  Result:=Result+'CaErwin9Xml'#10'T'#10;
  Result:=Result+'CaMart9'#10'T'#10;
  Result:=Result+'CaModelManager7'#10'T'#10;
  Result:=Result+'CaModelManager8'#10'T'#10;
  Result:=Result+'CrossPlatform'#10'T'#10;
  Result:=Result+'IbmInfoSphereDiscoveryImport.CaErwinDataProfiler'#10'T'#10;
  Result:=Result+'IbmRationalDataArchitect'#10'T'#10;
  Result:=Result+'IbmRationalDataArchitectImport.IbmDb2DataWarehouse'#10'T'#10;
  Result:=Result+'IbmRationalRose98Import.MicrosoftVisualStudioModeler'#10'T'#10;
  Result:=Result+'OmgCwmXmiImport.CaErwinDataProfiler'#10'T'#10;
  Result:=Result+'OmgUml2XmiImport.PowerDesignerOom'#10'T'#10;
  Result:=Result+'OmgUml2XmiImport.SparxEA'#10'T'#10;
  Result:=Result+'OmgUmlXmiImport.SparxEA'#10'T'#10;
  Result:=Result+'OmgUmlXmiImport.SybasePowerDesignerOom'#10'T'#10;
  Result:=Result+'OracleDesigner'#10'T'#10;
  Result:=Result+'SybasePowerDesignerCdm06'#10'T'#10;
  Result:=Result+'SybasePowerDesignerCdm07'#10'T'#10;
  Result:=Result+'SybasePowerDesignerLdm15'#10'T'#10;
  Result:=Result+'SybasePowerDesignerPdm07'#10'T'#10;
  Result:=Result+'baseLicense'#10'Developer'#10;
  Result:=Result+'updatelevel'#10'0.0'#10;
  Result:=Result+'updates'#10'1'#10;


  Result:=Result+'26'#10;
  Result:=Result+'active'#10'T'#10;
  Result:=Result+'beta'#10'0'#10;
  Result:=Result+'exportable'#10'0'#10;
  Result:=Result+'hostpid'#10+pid+#10;
  Result:=Result+'hostskuid'#10+skuid+#10;
  Result:=Result+'internaluse'#10'0'#10;
  Result:=Result+'naggy'#10'0'#10;
  Result:=Result+'noncommercial'#10'0'#10;
  Result:=Result+'noncommercial_label'#10'No'#10;
  Result:=Result+'platform'#10'1'#10;
  Result:=Result+'platform_label'#10'Windows'#10;
  Result:=Result+'product'#10'2700'#10;
  Result:=Result+'productid'#10'2705'#10;
  Result:=Result+'productid_label'#10'HTML5 Builder'#10;         //HTML5 Builder
  Result:=Result+'productsku'#10'0'#10;
  Result:=Result+'productsku_label'#10'RadPHP'#10;               //RadPHP
  Result:=Result+'rndkey'#10'15687805'#10;
  Result:=Result+'serialno'#10+SerialNumber+#10;
  Result:=Result+'sku'#10'0'#10;
  Result:=Result+'templicense'#10'0'#10;
  Result:=Result+'termtype'#10'0'#10;
  Result:=Result+'termtype_label'#10'Permanent'#10;
  Result:=Result+'title'#10'HTML5 Builder'#10;                    //HTML5 Builder
  Result:=Result+'trial'#10'0'#10;
  Result:=Result+'upgrade'#10'0'#10;
  Result:=Result+'version'#10'5'#10;
  Result:=Result+'1'#10;
  Result:=Result+'updatelevel'#10'0.0'#10;

end;

  
end.
